home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-08-12 | 1.4 KB | 55 lines | [TEXT/MPS ] |
- ;
- ; File: Packages.a
- ;
- ; Contains: Package Manager Interfaces.
- ;
- ; Version: Technology: System 7.5
- ; Release: Universal Interfaces 3.0.1
- ;
- ; Copyright: © 1985-1997, 1995, 1997 by Apple Computer, Inc., all rights reserved
- ;
- ; Bugs?: Please include the the file and version information (from above) with
- ; the problem description. Developers belonging to one of the Apple
- ; developer programs can submit bug reports to:
- ;
- ; devsupport@apple.com
- ;
- ;
- IF &TYPE('__PACKAGES__') = 'UNDEFINED' THEN
- __PACKAGES__ SET 1
-
- IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
- include 'Types.a'
- ENDIF
-
-
- listMgr EQU 0 ; list manager
- dskInit EQU 2 ; Disk Initializaton
- stdFile EQU 3 ; Standard File
- flPoint EQU 4 ; Floating-Point Arithmetic
- trFunc EQU 5 ; Transcendental Functions
- intUtil EQU 6 ; International Utilities
- bdConv EQU 7 ; Binary/Decimal Conversion
- editionMgr EQU 11 ; Edition Manager
- ;
- ; pascal void InitPack(short packID)
- ;
- IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
- _InitPack: OPWORD $A9E5
- ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
- IMPORT_CFM_FUNCTION InitPack
- ENDIF
-
- ;
- ; pascal void InitAllPacks(void )
- ;
- IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
- _InitAllPacks: OPWORD $A9E6
- ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
- IMPORT_CFM_FUNCTION InitAllPacks
- ENDIF
-
-
- ENDIF ; __PACKAGES__
-
-